home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok59.lha / AmokEd_V1.02b / txt / EdErrors.mod < prev    next >
Text File  |  1993-08-15  |  3KB  |  95 lines
  1. (*************************************************************************
  2.  
  3. :Program.       EdErrors.mod
  4. :Contents.      Error-Code definitions for AmokEd
  5. :Author.        Hartmut Goebel
  6. :Copyright.     Copyright © 1987 by Kim DeVaughn (as part of DME)
  7. :Copyright.     Oberon implementation: Copyright © 1990 by Hartmut Goebel
  8. :Language.      Oberon
  9. :Translator.    Amiga Oberon Compiler V2.00
  10. :History.       V1.0, 1.Jan 91, Hartmut Goebel
  11. :History.       V1.1, 5.Jan 91, Hartmut Goebel: Abort-/FailLevel added
  12.  
  13. *************************************************************************)
  14.  
  15. MODULE EdErrors;
  16.  
  17. (* $Implementation- *)
  18.  
  19. (*
  20.  *  Error Level Definitions   [ PRELIMINARY - SUBJECT TO CHANGE ]
  21.  *
  22.  *  Definitions for internal  (dme)  error reporting begin with cmd
  23.  *  Definitions for external (ARexx) error reporting begin with rx
  24.  *
  25.  *
  26.  *      0 - command execution successful [normal]     (i.e., title = OK)
  27.  *      1 - command execution successful [alternate]  (i.e., title = OK)
  28.  *      2 - command execution successful [normal]     (don't alter title)
  29.  *      3 - command execution successful [alternate]  (don't alter title)
  30.  *      4 - reserved
  31.  *      5 - command could not complete requested function
  32.  *     10 - command was unable to process correctly
  33.  *     15 - server failture
  34.  *     20 - command failure detected - data integrity in question
  35.  *     50 - internal error detected by  dme  or  ARexx
  36.  *
  37.  *  Only levels 0 and 1 allow the ARexx interface code to explicitly
  38.  *  set title.
  39.  *
  40.  *  Eg: 0 - the normal case (redisplay Title)
  41.  *      1 - a secondary succeeful result (redisplay Title)
  42.  *      2 - normal, but may have put up an informational message
  43.  *      3 - secondary normal, but may have informational message
  44.  *      4 -
  45.  *      5 - "find" didn't find, "file not found", "block not marked", etc.
  46.  *     10 - "command not found", "syntax error", "bad argument" etc.
  47.  *     15 - "write failed", "unable to open file", "no memory", etc.
  48.  *     20 - maybe a sequence of commands that failed; may have modified data
  49.  *     50 - dunno, but definitely bad shit
  50.  *)
  51.  
  52. CONST
  53.   cmdValid0* =        0;
  54.   cmdValid1* =        1;
  55.   cmdValid2* =        2;
  56.   cmdValid3* =        3;
  57.   cmdValid4* =        4;
  58.   cmdFailed* =        5;
  59.   cmdError* =        10;
  60.   cmdSevere* =       15;
  61.   cmdAbort* =        20;
  62.   cmdMalfunction* =  50;
  63.  
  64. (*  Similar to the internal command error levels above, for the moment. *)
  65.  
  66.   rxValid0* =        0;
  67.   rxValid1* =        1;
  68.   rxValid2* =        2;
  69.   rxValid3* =        3;
  70.   rxValid4* =        4;
  71.   rxFailed* =        5;
  72.   rxError* =        10;
  73.   rxSevere* =       15;
  74.   rxAbort* =        20;
  75.   rxMalfunction* =  50;
  76.  
  77.   cmdInitial* =       0;
  78.   TitleThreshhold* =  cmdValid1;
  79.   AbortLevel* = cmdFailed;
  80.   FailLevel* = cmdFailed;
  81.  
  82.  
  83.   (* ErrorCodes for Applikation-Commands *)
  84.   noError * = 0;
  85.   cmdNotFound * = 1;
  86.   invalidArgument * = 3;
  87.  
  88.   (* XPingPong *)
  89.   noXPPField * = 20;
  90.   XPPPosNotDefined * = 21;
  91.   XPPPosOutOfRange * = 22;
  92.  
  93. END EdErrors.
  94.  
  95.